home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / m / multi_media_demo_maker / multimediademomakerv1.0.dms / multimediademomakerv1.0.adf / sources / Vektorballs1.S < prev    next >
Text File  |  1990-11-13  |  2KB  |  82 lines
  1. ;-----------------------------------------------------------------------
  2. ; Beispiel eines Vektorballobjekt-Sourcecodes
  3. ;-----------------------------------------------------------------------
  4. ; Normales Vektorballsobjekt (Amigazeichen)
  5. ;-----------------------------------------------------------------------
  6. ;(Seka-format)
  7. ;Benutzung:
  8. ;a (return)
  9. ;wi (return)
  10. ;name (return)
  11. ;start (return)
  12. ;end (return)
  13. ;Danach kann das Objekt vom Demomaker aus unter "name" eingeladen werden.
  14. ;------------------------------------------------------------------------
  15. start:
  16. dc.l    "BALL"    ;Kennung fuer Ballsobjekt
  17.  
  18. ballsob1:
  19. dc.l ballpoints-ballsob1    ;offset fuer Punktstruktur
  20. dc.l ballart-ballsob1        ;offset fuer Ballartstruktur
  21. dc.w 650            ;zoom = 650
  22. dc.w 0,$500,$710,$930,$a50,$d90,$fd0,$000,$5,$6,$118,$33a,$55b,$88c,$ccd
  23. dc.w $fff    ;16 farben
  24. dc.l 0        ;kein Initroutine
  25. dc.l 0        ;kein Zusatzroutine
  26.  
  27. ballart:    ;Struktur fuer Ballarten
  28. blk.w 24,6    ;24 mal Ballart 6
  29. blk.w 24,26    ;24 mal Ballart 26
  30.  
  31. ballpoints:    ;Punktstruktur
  32. dc.w 48        ;Ballanzahl
  33. DC.W 000, 000, 000    ;Koordinaten(x/y/z)
  34. DC.W 015,-015, 000
  35. DC.W 045,-045, 000
  36. DC.W 030,-030, 000
  37. DC.W 060,-060, 000
  38. DC.W -015, 015, 000
  39. DC.W -030, 030, 000
  40. DC.W -045, 045, 000
  41. DC.W -060, 060, 000
  42. DC.W -075, 045, 000
  43. DC.W -090, 030, 000
  44. DC.W -105, 015, 000
  45. DC.W 075,-060, 015
  46. DC.W 060,-045, 015
  47. DC.W 045,-030, 015
  48. DC.W 030,-015, 015
  49. DC.W 015, 000, 015
  50. DC.W 000, 015, 015
  51. DC.W -015, 030, 015
  52. DC.W -030, 045, 015
  53. DC.W -045, 060, 015
  54. DC.W -060, 045, 015
  55. DC.W -075, 030, 015
  56. DC.W -090, 015, 015
  57. DC.W -075, 015, 030
  58. DC.W -060, 030, 030
  59. DC.W -045, 045, 030
  60. DC.W -030, 060, 030
  61. DC.W -015, 045, 030
  62. DC.W 000, 030, 030
  63. DC.W 015, 015, 030
  64. DC.W 030, 000, 030
  65. DC.W 045,-015, 030
  66. DC.W 060,-030, 030
  67. DC.W 075,-045, 030
  68. DC.W 090,-060, 030
  69. DC.W -060, 015, 045
  70. DC.W -045, 030, 045
  71. DC.W -030, 045, 045
  72. DC.W -015, 060, 045
  73. DC.W 000, 045, 045
  74. DC.W 015, 030, 045
  75. DC.W 030, 015, 045
  76. DC.W 045, 000, 045
  77. DC.W 060,-015, 045
  78. DC.W 075,-030, 045
  79. DC.W 090,-045, 045
  80. DC.W 105,-060, 045
  81. end:
  82.